J-Mac Electronics & Home Comics/J-Mac Electronics & Home Comics.iso/mac/J-MAC/G35F/G35_NANI.Dxr/00066.ls

Text File | 1998-01-22 | 3.5 KB | 195 lines

global i, g_no, jumplistkey, jumplistkeyz

on startMovie
  set mycursor to [1, 2]
  repeat with i = 11 to 19
    set the cursor of sprite i to mycursor
  end repeat
  set jumplistkey to ["G1", "G2", "G3", "G4"]
  set jumplistkeyz to ["Z1", "Z2", "Z3", "Z4"]
  set volset to the soundLevel
  if the soundEnabled = 0 then
    set the soundEnabled to 1
  end if
end

on donext
  if (g_no + 1) = 5 then
    set g_no to 0
  end if
  go(getAt(jumplistkey, g_no + 1))
end

on doback
  if (g_no - 1) = 0 then
    set g_no to 5
  end if
  go(getAt(jumplistkey, g_no - 1))
end

on donextz
  if (g_no + 1) = 5 then
    set g_no to 0
  end if
  go(getAt(jumplistkeyz, g_no + 1))
end

on dobackz
  if (g_no - 1) = 0 then
    set g_no to 5
  end if
  go(getAt(jumplistkeyz, g_no - 1))
end

on doexit
  sound stop 1
  go("M3", "@::JMACMENU")
end

on dolinktips
  sound stop 1
  go(1, "G33_TIPS")
end

on dolinkasa
  sound stop 1
  go(1, "G34_ASAA")
end

on crtopen
  puppetSprite(7, 1)
  repeat while the stillDown
    set the memberNum of sprite 7 to 16
    updateStage()
  end repeat
  set the memberNum of sprite 7 to 14
  updateStage()
  puppetSprite(7, 0)
end

on crtclose
  puppetSprite(8, 1)
  repeat while the stillDown
    set the memberNum of sprite 8 to 17
    updateStage()
  end repeat
  set the memberNum of sprite 8 to 15
  updateStage()
  puppetSprite(8, 0)
end

on crtasa
  puppetSprite(9, 1)
  repeat while the stillDown
    set the memberNum of sprite 9 to 11
    updateStage()
  end repeat
  set the memberNum of sprite 9 to 10
  updateStage()
  puppetSprite(9, 0)
end

on crtlm
  puppetSprite(10, 1)
  repeat while the stillDown
    set the memberNum of sprite 10 to 13
    updateStage()
  end repeat
  set the memberNum of sprite 10 to 12
  updateStage()
  puppetSprite(10, 0)
end

on crtback
  puppetSprite(21, 1)
  repeat while the stillDown
    set the memberNum of sprite 21 to 26
    updateStage()
  end repeat
  set the memberNum of sprite 21 to 25
  updateStage()
  puppetSprite(21, 0)
end

on crtnext
  puppetSprite(20, 1)
  repeat while the stillDown
    set the memberNum of sprite 20 to 24
    updateStage()
  end repeat
  set the memberNum of sprite 20 to 23
  updateStage()
  puppetSprite(20, 0)
end

on crtbackz
  puppetSprite(21, 1)
  repeat while the stillDown
    set the memberNum of sprite 21 to 47
    updateStage()
  end repeat
  set the memberNum of sprite 21 to 46
  updateStage()
  puppetSprite(21, 0)
  puppetSprite(1, 0)
end

on crtnextz
  puppetSprite(20, 1)
  repeat while the stillDown
    set the memberNum of sprite 20 to 45
    updateStage()
  end repeat
  set the memberNum of sprite 20 to 44
  updateStage()
  puppetSprite(20, 0)
  puppetSprite(1, 0)
end

on crtclose2
  puppetSprite(22, 1)
  repeat while the stillDown
    set the memberNum of sprite 22 to 28
    updateStage()
  end repeat
  set the memberNum of sprite 22 to 27
  updateStage()
  puppetSprite(22, 0)
  puppetSprite(1, 0)
end

on crtzexit
  puppetSprite(22, 1)
  repeat while the stillDown
    set the memberNum of sprite 22 to 49
    updateStage()
  end repeat
  set the memberNum of sprite 22 to 48
  updateStage()
  puppetSprite(22, 0)
  puppetSprite(1, 0)
end

on crtzoomin
  puppetSprite(23, 1)
  repeat while the stillDown
    set the memberNum of sprite 23 to 30
    updateStage()
  end repeat
  set the memberNum of sprite 23 to 29
  updateStage()
  puppetSprite(23, 0)
end

on crtzoomout
  puppetSprite(23, 1)
  repeat while the stillDown
    set the memberNum of sprite 23 to 51
    updateStage()
  end repeat
  set the memberNum of sprite 23 to 50
  updateStage()
  puppetSprite(23, 0)
  puppetSprite(1, 0)
end